#################################################################
### Table 4. Reliability of Latent Variable Construction, U.S ###
#################################################################

load("/Users/Yannan/Desktop/data_us.RData")

library(psych)

summary(alpha(data_us[, c("y1", "y2", "y3", "y4", "y5")]))
summary(alpha(data_us[, c("x1", "x2", "x3", "x4", "x5", "x6", "x7", "x8", "x9", "x10", "x11", "x12")]))
summary(alpha(data_us[, c("a1", "a2", "a3", "a4", "a5")]))
summary(alpha(data_us[, c("h1", "h2", "h3")]))